home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / a / msmsport.scr < prev    next >
Encoding:
Text File  |  1993-08-07  |  4.7 KB  |  130 lines
  1. ; FILE SPORT.SCR (MSMSPORT.SCR)
  2. ;
  3. ; An MS-DOS Kermit script program for dialing the US Robotics Sportster
  4. ; 14400 modem, to be used with MS-DOS Kermit 3.11 or later.
  5. ; The modem is set for V.32bis, compression, error correction, all types of 
  6. ; fallback, RTS/CTS flow control, fixed interface speed of 57600 or 38400.
  7. ;
  8. ; To use: SET MODEM=SPORT (in DOS, before starting Kermit)
  9. ; or:     DEFINE _MODEM SPORT (in Kermit, before dialing)
  10. ; and:    Make sure Kermit executes the standard MSKERMIT.INI file.
  11. ;
  12. ; Authors: Christine M. Gianone, Frank da Cruz; Columbia U, June 1993
  13. ; Modified 8 Aug 93 to fix typo (W1 is not a legal Sportster command).
  14. ;
  15. def errfail echo \%1, hangup, goto fail ; Macro to handle failures.
  16. if < VERSION 312 errfail {MS-DOS Kermit 3.12 or later required.}
  17. if eq "\v(system)" "UNIX" if = \v(local) 0 stop 1 You must SET LINE first
  18.  
  19. define chkerr if fail stop 1 \%1
  20. define chkok input 3 OK, if fail stop 1 \%1
  21.  
  22. set input echo on        ; So we can watch what happens.
  23. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE.
  24. set input case ignore        ; Use caseless string comparisons
  25.  
  26. set parity none            ; Avoid parity foulups
  27. set flow none            ; Avoid flow control deadlocks
  28. hangup                ; Begin by dropping DTR
  29. pause 1                ; for one second
  30.  
  31. ; Speed.  Don't worry about modem, it autobauds up to 57600 bps.
  32.  
  33. set speed 57600            ; If computer can be set to 57600 bps, use it.
  34. if fail set speed 38400        ; If not, use 38400.
  35.  
  36. wait 0 DSR            ; Check modem signals that should be on
  37. chkerr {No DSR signal - check your modem and cable}
  38. wait 0 CTS
  39. chkerr {No CTS signal - check your modem and cable}
  40.  
  41. echo Configuring USR Sportster 14400 on \v(line).
  42.  
  43. :INIT
  44. output ATQ0V1\13        ; Enable word result codes
  45. chkok {Can't get modem's attention}
  46. output AT E1 X4 &A3 &D2\13    ; Set echoing, result codes, etc.
  47. chkok {Can't initialize modem}
  48. output AT&B1\13            ; Fixed interface speed
  49. chkok {Can't fix interface speed}
  50. output AT &H1&R2\13        ; RTS/CTS hardware flow control
  51. chkok {Can't enable RTS/CTS}    ; On modem
  52. set flow rts/cts        ; And in Kermit too, but only now
  53. output AT &N0\13
  54. chkok {Can't enable modulation fallback}
  55. output AT &K1&M4\13        ; Compression and EC enabled
  56. chkok {Can't enable compression and EC}
  57. output AT &Y3\13        ; Make modem pass BREAK transparently
  58. chkok {Can't become transparent to BREAK}
  59.  
  60. if def \%1 if not equal "\%1" "=" goto BEGIN
  61. echo Modem initialization complete, no number to dial
  62. end 0
  63.  
  64. :BEGIN                ; Now DIAL.
  65. clear                ; Clear INPUT buffer.
  66. set count 5                     ; Dialing retry counter, 5 tries allowed.
  67. echo Dialing \%1 on \v(line) at \v(speed) bps, wait...
  68. echo
  69. pause 1
  70. goto dial                       ; 1st time, skip pause and Redialing message
  71.  
  72. :REDIAL
  73. set alarm 30
  74. pause 30            ; Wait 30 seconds before redialing.
  75. if not alarm errfail {Dialing canceled.}
  76. echo Redialing...               ; Message for redialing.
  77. pause 1
  78.  
  79. :DIAL
  80. output ATD\%1\13                ; Dial the number.
  81. set alarm 90            ; (For detecting keyboard interruptions.)
  82. if > VERSION 312 clear input    ; Clear echo from INPUT buffer.
  83. if < VERSION 313 clear
  84. input 30 \10                    ; Wait for the linefeeds...
  85.  
  86. :GETMSG
  87. input 60 \10            ; ...that surround the response message.
  88. if success goto gotmsg        ; Got a message.
  89. if alarm errfail {No response from modem.} ; No response in 90 seconds.
  90. hangup                ; User interrupted from keyboard,
  91. output \13            ; cancel dialing by sending carriage return,
  92. goto again            ; and go try again right away.
  93.  
  94. :GOTMSG
  95. reinput 1 CONNECT               ; Got a message, was it CONNECT?
  96. if success goto done            ; If so, we're done.
  97. reinput 1 BUSY            ; Line is busy.
  98. if success goto busy        ; Go wait a while and then dial again.
  99. reinput 1 ERROR            ; Command syntax error.
  100. if success errfail {Dialing command error}
  101. reinput 1 NO CARRIER        ; Phone didn't answer or no carrier.
  102. if success errfail {No answer or no carrier}
  103. reinput 1 NO ANSWER        ; No answer
  104. if success errfail {No answer - try again later}
  105. reinput 1 NO DIAL TONE        ; No dialtone when phone taken off hook.
  106. if success errfail {No dialtone - Is your modem connected to the phone line\63}
  107. goto getmsg            ; None of the above, get another message.
  108.  
  109. :BUSY
  110. if < \v(count) 2 goto quit    ; Don't wait 30 seconds if tries are used up.
  111. Echo Line is busy, will dial again in 30 seconds.
  112. echo Press any key to cancel...
  113. output \13            ; CR cancels dialing
  114. hangup                          ; Hang up.
  115. :AGAIN
  116. if count goto redial            ; Then go redial.
  117. :QUIT
  118. errfail {It never answers!  I give up.} ; Too many tries.
  119.  
  120. :DONE                           ; Connected.
  121. echo \7                         ; Celebrate with a beep.
  122. define errfail            ; Erase local macro definitions...
  123. end 0                ; Finished, return success code.
  124.  
  125. :FAIL                ; Dialing failed, no beep.
  126. define errfail            ; Erase local macro definitions...
  127. end 1                ; Return failure code.
  128.  
  129. ; End of SPORT.SCR
  130.